home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / saided.arc / COMP.DOC (.txt) next >
Commodore BASIC  |  2009-10-10  |  7KB  |  119 lines
  1. 1 POKE45,153:POKE46,036:CLR:POKE53265,PEEK(53265)AND239
  2. 2 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  3. 3 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  4. 4 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]aSWI";
  5. 5 PRINT"THALLPROGRAMSTHATMODIFYTHE[159]}}[153]ARCHITECTUREOFACOMPUTERSOPERAT";
  6. 6 PRINT"ING[159]}}[153]SYSTEM,NOTALLOTHERSOFTWAREAND/OR[159]}}[153]HARDWAREWILLBECOMPAT";
  7. 7 PRINT"IBLE.sPECIFIC[159]}}[153]EFFORTSWEREMADEFOR100%AGREEMENT[159]}}[153]WITHSPECIF";
  8. 8 PRINT"ICSOFTWAREPACKAGES.sUPER[159]}}[153]aIDEISDESIGNEDTOBEUSEDASATOOL[159]}}";
  9. 9 PRINT"[153]FORPROGRAMDEVELOPMENTBYEITHERTHE[159]}}[153]basicORMACHINELANGUAGEPR";
  10. 10 PRINT"OGRAMMER.[159]}}[153]aSARESULT,TWOVERSIONSOFxMON,AN[159]}}[153]EXCELLENTPUBLIC";
  11. 11 PRINT"DOMAINMACHINELAN-[159]}}[153]GUAGEMONITOR,AREINCLUDED.bOTHxMON[159]}}[153]ANDs";
  12. 12 PRINT"UPERaIDEARECONFIGUREDTOWORK[159]}}[153]WITHTHEpalASSEMBLER.iFYOUUSE";
  13. 13 PRINT"THE[159]}}[153]LOWVERSIONOFxMON,ITISRECOMMENDED[159]}}[153]THATYOULOADANDRUNp";
  14. 14 PRINT"alFIRST.aLL[159]}}[153]WILLFUNCTIONIFDONEINREVERSEORDER[159]}}[153]BUTYOUWIL";
  15. 15 PRINT"LHAVELESSMEMORYTOUSE[159]}}[153]FORYOURDEVELOPINGPROGRAM.[159]}[171]";
  16. 16 PRINT"``````````````[178]````````[178]``````````````[179]}[155]cOMPATIBILITY[159]}[154]pAGE1[159]}[155]rET";
  17. 17 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  18. 18 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  19. 19 GOSUB113
  20. 20 POKE53265,PEEK(53265)AND239:CLR
  21. 21 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  22. 22 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  23. 23 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]aNOTH";
  24. 24 PRINT"ERMAJORAREAOFINTERESTAPPEARS[159]}}[153]TOBEWITH1541FASTLOADERS.mOST";
  25. 25 PRINT"OF[159]}}[153]THEMWILLWORK.lOADANDRUNsUPER[159]}}[153]aIDEFIRST.tHENLOADA";
  26. 26 PRINT"NDACTIVATETHE[159]}}[153]FASTLOADROUTINE.aFTERTHEFAST[159]}}[153]LOADROUTIN";
  27. 27 PRINT"EISACTIVE,ITWILLBEDE-[159]}}[153]ACTIVATEDWHENArun-stop/restoreKEY[159]}}";
  28. 28 PRINT"[153]SEQUENCEISPERFORMED.asysTOTHE[159]}}[153]ACTIVATIONADDRESSOFTHEF";
  29. 29 PRINT"ASTLOADER[159]}}[153]WILLREACTIVATEIT.iFNEEDEDALOT,[159]}}[153]DEFINEAFUNCTION";
  30. 30 PRINT"KEYTODOTHEJOB.[159]}}[153]iNOURTESTSWEUSEDfastbootFROMTHE[159]}}[153]fast";
  31. 31 PRINT"hack'emPROGRAM,BUTMOSTSHOULD[159]}}[153]WORK.";
  32. 32 PRINT"[159]}}}}[153]aFEWWORDSABOUTchrget";
  33. 33 PRINT"WEDGESAREIN[159]}}[153]ORDER.wERECOMMENDYOUNOTUSETHEM.[159]}}[153]aLLTHEFUNCT";
  34. 34 PRINT"IONSOFAchrgetWEDGE[159]}}[153]AREHANDLEDBYsUPERaIDEEXCEPTTHEIR[159]}[171]``";
  35. 35 PRINT"````````````[178]````````[178]``````````````[179]}[155]cOMPATIBILITY[159]}[154]pAGE2[159]}[155]rETUR";
  36. 36 PRINT"N=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  37. 37 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  38. 38 GOSUB113
  39. 39 POKE53265,PEEK(53265)AND239:CLR
  40. 40 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  41. 41 PRINT"[159][176]``````````````````````````````````````[174]}[181][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCUME";
  42. 42 PRINT"NTATION[181][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]ABILITYT";
  43. 43 PRINT"OOPERATEDURINGAPROGRAM[159]}}[153]RUN.wECONSIDERTHISBADPROGRAMMING[159]";
  44. 44 PRINT"}}[153]TECHNIQUEFORTWOREASONS.fIRST,THE[159]}}[153]ENDUSEROFTHEPROGRAMMUS";
  45. 45 PRINT"THAVETHE[159]}}[153]WEDGE.sECONDLY,ITSLOWSPROGRAMEXE-[159]}}[153]CUTION.cERTAIN";
  46. 46 PRINT"CRASHESAREPOSSIBLE[159]}}[153]DURINGAPROGRAMSDEVELOPMENTTHATARE[159]}}[153]AR";
  47. 47 PRINT"EALPAIN.iFYOUHAVEAromBASED[159]}}[153]WEDGE,besureITISKILLEDPRIO";
  48. 48 PRINT"RTO[159]}}[153]PROGRAMDEVELOPMENTANDESPECIALLYBE-[159]}}[153]FOREYOUATTEMPTTO";
  49. 49 PRINT"BRINGBACKYOUR[159]}}[153]SYSTEMAFTERACRASHANDARESET.fOR[159]}}[153]MORINFOR";
  50. 50 PRINT"MATIONONSYSTEMRECOVERYSEE[159]}}[153]THErestorekCOMMANDINTHEnmiCOM-[159]";
  51. 51 PRINT"}}[153]MANDSECTION.[159]}}";
  52. 52 PRINT"}}}}[153]sEVERALPAGETHREE";
  53. 53 PRINT"VECTORSAREALTERED[159]}}[153]BYsUPERaIDE.aLISTOFTHESECHANGED[159]}[171]````````";
  54. 54 PRINT"``````[178]````````[178]``````````````[179]}[155]cOMPATIBILITY[159]}[154]pAGE3[159]}[155]rETURN=gO";
  55. 55 PRINT"[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  56. 56 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  57. 57 GOSUB113
  58. 58 POKE53265,PEEK(53265)AND239:CLR
  59. 59 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  60. 60 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  61. 61 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]VECTO";
  62. 62 PRINT"RSISASFOLLOWS:[159]}}dEFAULT";
  63. 63 PRINT"[159]}}[163][163][163][163][163][163][163][159]}}[153]ierror768-769$300-";
  64. 64 PRINT"$301$E38B[159]}}[153]imain770-771$302-$303$A483[159]}}[153]igone77";
  65. 65 PRINT"6-777$308-$309$A7E4[159]}}[153]cinv788-789$314-$315$EA31[159]}}";
  66. 66 PRINT"[153]cbinv790-791$316-$317$FE66[159]}}[153]nminv792-793$318-$319";
  67. 67 PRINT"$FE47[159]}}[153]ibsout808-809$326-$327$F1CA[159]}}[153]iload816-817";
  68. 68 PRINT"$330-$331$F49E[159]}}[153]isave818-819$332-$333$F5DD[159]}}";
  69. 69 PRINT"}}[153]tAMPERINGWITHTHESEVECTORSIS";
  70. 70 PRINT"[159]}}[153]HAZARDOUSTOYOURSYSTEMSHEALTH.[159]}}";
  71. 71 PRINT"[221][221][150][211]TUDYTHESOURCECODEANDSEEWHAT[159][221][221][150]THEYDOBEFORE";
  72. 72 PRINT"ALTERINGCODEORTHE[159][221][221][150]VECTORSTHEMSELVES.[159][221][171][192][192][192][192]";
  73. 73 PRINT"``````````[178]````````[178]``````````````[179]}[155]cOMPATIBILITY[159]}[154]pAGE4[159]}[155]rETURN";
  74. 74 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  75. 75 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  76. 76 GOSUB113
  77. 77 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$="    [197]XIT [212]HE [208]ROGRAM    "
  78. 78 POKE53265,PEEK(53265)AND239
  79. 79 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  80. 80 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  81. 81 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}";
  82. 82 PRINT"}}[153]dOYOUWISHTO:";
  83. 83 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````";
  84. 84 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}";
  85. 85 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}";
  86. 86 PRINT"[173]````````````````````````[189]}}";
  87. 87 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}";
  88. 88 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}";
  89. 89 PRINT"}}}}";
  90. 90 PRINT"}}[150]hAPPYpROGRAMMING![159]";
  91. 91 PRINT"}}}}";
  92. 92 PRINT"}}}[171]``````````````[178]```````";
  93. 93 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][195]OMPATIBILITY [159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#4[159][221][173][192][192][192][192][192][192][192][192]";
  94. 94 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  95. 95 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  96. 96 GETW$
  97. 97 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  98. 98 FORX=1066TO1070:POKEX,PO:NEXTX
  99. 99 FORX=1097TO1101:POKEX,PO:NEXTX
  100. 100 IFW$=""THEN96
  101. 101 IFW$=CHR$(13)THENGOTO108
  102. 102 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN104
  103. 103 GOTO96
  104. 104 CO=CO+1:IFCO>2THENCO=1
  105. 105 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
  106. 106 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
  107. 107 GOTO96
  108. 108 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
  109. 109 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  110. 110 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
  111. 111 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  112. 112 LOAD"DOC.DRIVER",8
  113. 113 GETW$
  114. 114 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  115. 115 FORX=1066TO1070:POKEX,PO:NEXTX
  116. 116 FORX=1097TO1101:POKEX,PO:NEXTX
  117. 117 IFW$=""THEN113
  118. 118 RETURN
  119.